home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / main.dxr / 00039_submenu button.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  560 b   |  38 lines
  1. property spriteNum, clickable
  2.  
  3. on mouseUp me
  4.   if clickable then
  5.     submenuSelect(spriteNum - 40)
  6.   end if
  7. end
  8.  
  9. on itemSetUp me, txt
  10.   clickable = char 1 of txt = "ΓÇó"
  11.   sprite(spriteNum).member.text = txt
  12.   if clickable then
  13.     me.blendme(8)
  14.   else
  15.     me.blendme(8)
  16.   end if
  17. end
  18.  
  19. on blendme me, val
  20.   sprite(spriteNum).ink = val
  21. end
  22.  
  23. on mouseEnter me
  24.   if the frameLabel <> "pause" then
  25.     if clickable then
  26.       cursor(280)
  27.       me.blendme(35)
  28.     end if
  29.   end if
  30. end
  31.  
  32. on mouseLeave me
  33.   if clickable then
  34.     cursor(0)
  35.     me.blendme(8)
  36.   end if
  37. end
  38.